
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[EBAS_SP_GEM_GRUPPE]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[EBAS_SP_GEM_GRUPPE]
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE [DBO].[EBAS_SP_GEM_GRUPPE] 
	@session varchar(255),
	@navn varchar(255),
	@startTid varchar(255),
	@slutTid varchar(255),
	@sted varchar(255),
	@bemaerkning varchar(255),
	@ejerforhold varchar(255)
WITH ENCRYPTION
AS
	DECLARE @rettighed int,
		@antal int, 
		@guid uniqueidentifier,
		@ejerGuid uniqueidentifier
	
	SET NOCOUNT ON
	SET @antal = 0

	CREATE TABLE #temp ( rett int )
	INSERT INTO #temp (rett)
	EXEC EBAS.DBO.EBAS_SP_SIKKERHED_VERIFICER_SESSION @session	

	SET @rettighed = (SELECT IsNull(MAX(rett),0) FROM #temp)
	
	IF 8 <= @rettighed 
	BEGIN
		SET @ejerGuid = (SELECT GUID 
				 FROM EBAS_EJERFORHOLD
				 WHERE GUID IN (
				 	SELECT EJER_GUID
				 	FROM EBAS_ADRESSE
				 	WHERE ATTENTION = @ejerforhold)
				 )
		
		IF NOT EXISTS (SELECT 1 FROM EBAS_GRUPPE WHERE NAVN = @navn)
		BEGIN
			SET @guid = newid()
			
			INSERT INTO EBAS_GRUPPE
				SELECT 	@guid, @navn, @startTid, @slutTid, @sted, 
					@bemaerkning, @ejerGuid
		END
		ELSE
		BEGIN
			SET @guid = (SELECT GUID FROM EBAS_GRUPPE WHERE NAVN = @navn)
			
			UPDATE EBAS_GRUPPE
			SET 	NAVN = @navn, START_TID = @startTid, SLUT_TID = @slutTid, 
				STED = @sted, BEMAERKNING = @bemaerkning, EJERFORHOLD_GUID = @ejerGuid
			WHERE	GUID = @guid
		END
	END

	SELECT	GUID, NAVN, START_TID, SLUT_TID, STED,
		BEMAERKNING, EJERFORHOLD_GUID
	FROM	EBAS_GRUPPE
	WHERE	GUID = @guid

GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO
